home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ Gooey 1.xpl < prev    next >
Text File  |  2001-01-22  |  4KB  |  138 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Internet\Instant Messaging\GOOEY"
  5. "NAME"="Settings #2"
  6. "VERSION"="1.03"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Open Gooey docked"
  9. "TEXT 2"="Open links in new browser window"
  10. "TEXT 3"="Enable sounds (make noise)"
  11. "TEXT 4"="Automatically copy selected text when editing messages"
  12. "TEXT 5"="Keep window on top of all other programs"
  13. "DESCRIPTION 1"="Some options for Gooey."
  14. "DESCRIPTION 2"="Gooey may be obtained at http://www.gooey.com/"
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19. "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
  20.  
  21.  
  22. '-- ONLY CHANGE THE LINES WITHOUT ' at the beginning !!
  23. '
  24. '*** Xteq Systems "On/Off" Plug-in Template ***
  25. '*** ID_XQ_PT1 V1.00 
  26.  
  27.  ' how many settings are in this file (change "COUNT=" also!) 
  28.  CountSettings=5
  29.  
  30.  ' does this plug-in requires the user to logoff or to restart his PC?
  31.  bRequireLogoff=0
  32.  bRequireRestart=0 
  33.  
  34.  ' if this path exists in the registry, the plug-in will be enabled. if it does
  35.  ' not exist, the plug-in will be disable set to ="" to ignore this check and alway
  36.  ' enable the plug-in, regardless if the path exists or not
  37.  sCheckPath="HKCU\Software\Hypernix\Gooey\"
  38.  
  39.  
  40.  ' Settings for Value # 1
  41.  sV1_Path="HKCU\Software\Hypernix\Gooey\Environment\OpenDocked" 
  42.  sV1_OnValue="1"      'what is the "ON" value (e.g. "1", "True", "On" etc.)
  43.  sV1_OffValue="0"      'what is the "OFF" value (e.g. "0", "False", "Off" etc.)
  44.  sV1_DataType="2"     'datatype of this value (REG_STRING=1, REG_DWORD=2, REG_BINARY=3, REG_EXPAND_SZ=4)
  45.  
  46.  ' Settings for Value # 2
  47.  sV2_Path="HKCU\Software\Hypernix\Gooey\Environment\OpenLinkInNewWindow" 
  48.  sV2_OnValue="1"      
  49.  sV2_OffValue="0"      
  50.  sV2_DataType="2"     
  51.  
  52.  ' Settings for Value # 3
  53.  sV3_Path="HKCU\Software\Hypernix\Gooey\Environment\UseSounds" 
  54.  sV3_OnValue="1"      
  55.  sV3_OffValue="0"      
  56.  sV3_DataType="2"     
  57.  
  58.  ' Settings for Value # 4
  59.  sV4_Path="HKCU\Software\Hypernix\Gooey\Environment\UseAutoCopy" 
  60.  sV4_OnValue="1"      
  61.  sV4_OffValue="0"      
  62.  sV4_DataType="2"     
  63.  
  64.  ' Settings for Value # 5
  65.  sV5_Path="HKCU\Software\Hypernix\Gooey\Network\AllwaysOntop" 
  66.  sV5_OnValue="1"      
  67.  sV5_OffValue="0"      
  68.  sV5_DataType="2"     
  69.  
  70. '*** Xteq Systems "On/Off" Plug-in Template ***
  71. '
  72. '-- STOP CHANGES HERE !!
  73.  
  74.  
  75.  
  76. Sub Plugin_Initialize 
  77.  If Len(sCheckPath)>0 then
  78.     if left(sCheckPath,1)<>"\" then sCheckPath=sCheckPath & "\"
  79.  
  80.     b=RegPathExists(sCheckPath)
  81.     if b=true then
  82.        Call ReadSettings
  83.     else
  84.        Call Disable
  85.     end if  
  86.  else
  87.     Call ReadSettings
  88.  end if
  89. End Sub
  90.  
  91. Sub ReadSettings
  92.                            Call ReadSettingsEx(1,sV1_Path,sV1_OnValue)
  93.   if CountSettings>=2 then Call ReadSettingsEx(2,sV2_Path,sV2_OnValue)
  94.   if CountSettings>=3 then Call ReadSettingsEx(3,sV3_Path,sV3_OnValue)
  95.   if CountSettings>=4 then Call ReadSettingsEx(4,sV4_Path,sV4_OnValue)
  96.   if CountSettings>=5 then Call ReadSettingsEx(5,sV5_Path,sV5_OnValue)
  97. End Sub
  98.  
  99. Sub ReadSettingsEx(ID,REGP,VALON)
  100.  s=RegReadValue(REGP)
  101.  'Call DebugMsg("VAL:" & s & " ID:" & ID & " VAL_ON:" & VALON)
  102.  if CStr(s)=VALON then
  103.     Call SetUIElement(ID,true)
  104.  End if 
  105. End Sub
  106.  
  107.  
  108. Sub Plugin_CheckData(ElementIndex)
  109. End Sub
  110.  
  111.  
  112. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  113.                           Call WriteSettings(GetUIElement(1),sV1_Path,sV1_OnValue,sV1_OffValue,sV1_DataType)
  114.  if CountSettings>=2 then Call WriteSettings(GetUIElement(2),sV2_Path,sV2_OnValue,sV2_OffValue,sV2_DataType)
  115.  if CountSettings>=3 then Call WriteSettings(GetUIElement(3),sV3_Path,sV3_OnValue,sV3_OffValue,sV3_DataType)
  116.  if CountSettings>=4 then Call WriteSettings(GetUIElement(4),sV4_Path,sV4_OnValue,sV4_OffValue,sV4_DataType)
  117.  if CountSettings>=5 then Call WriteSettings(GetUIElement(5),sV5_Path,sV5_OnValue,sV5_OffValue,sV5_DataType)
  118.  
  119.  
  120.  if bRequireLogoff then Logoff()
  121.  if bRequireRestart then Restart()
  122. End Sub
  123.  
  124. Sub WriteSettings(CUR_VAL,REGP,ON_VAL,OFF_VAL,DAT_TYPE)
  125.   if CUR_VAL=true then
  126.      Call RegWriteValue(REGP,ON_VAL,DAT_TYPE)
  127.   else
  128.      Call RegWriteValue(REGP,OFF_VAL,DAT_TYPE)
  129.   end if
  130. End Sub
  131.  
  132.  
  133. Sub Plugin_Terminate 
  134. End Sub
  135.  
  136.  
  137.  
  138.